home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
PCBBE201.ZIP
/
PCBBE.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-03-23
|
15KB
|
581 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Date DATE001
Date DATE002
Date DATE003
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer TINTEGER006(99)
Integer INTEGER007
Integer TINTEGER008(99)
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
String STRING001
String TSTRING002(3)
String STRING003
BigStr BIGSTR001
BigStr BIGSTR002
BigStr BIGSTR003
BigStr BIGSTR004
BigStr BIGSTR005
BigStr BIGSTR006
BigStr BIGSTR007
BigStr BIGSTR008
BigStr BIGSTR009
BigStr BIGSTR010
BigStr BIGSTR011
BigStr BIGSTR012
BigStr BIGSTR013
BigStr BIGSTR014
BigStr BIGSTR015
BigStr BIGSTR016
BigStr BIGSTR017
BigStr BIGSTR018
BigStr BIGSTR019
BigStr BIGSTR020
BigStr BIGSTR021
BigStr BIGSTR022
BigStr BIGSTR023
BigStr BIGSTR024
BigStr BIGSTR025
BigStr BIGSTR026
BigStr BIGSTR027
BigStr BIGSTR028
BigStr BIGSTR029
BigStr BIGSTR030
BigStr BIGSTR031
BigStr BIGSTR032
BigStr BIGSTR033
BigStr BIGSTR034
BigStr BIGSTR035
BigStr BIGSTR036
BigStr BIGSTR037
BigStr BIGSTR038
BigStr BIGSTR039
BigStr BIGSTR040
BigStr BIGSTR041
BigStr BIGSTR042
;------------------------------------------------------------------------------
BIGSTR026 = ""
BIGSTR027 = ""
BIGSTR028 = ""
BIGSTR030 = ""
BIGSTR031 = ""
BIGSTR032 = ""
BIGSTR033 = ""
BIGSTR034 = ""
BIGSTR035 = ""
BIGSTR036 = ""
BIGSTR037 = ""
BIGSTR017 = Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(65) + Chr(32) + Chr(77) + Chr(111) + Chr(109) + Chr(101) + Chr(110) + Chr(116) + Chr(32) + Chr(111) + Chr(102) + Chr(32) + Chr(83) + Chr(105) + Chr(108) + Chr(101) + Chr(110) + Chr(99) + Chr(101) + Chr(32) + Chr(105) + Chr(110) + Chr(32) + Chr(82) + Chr(101) + Chr(99) + Chr(111) + Chr(103) + Chr(110) + Chr(105) + Chr(116) + Chr(105) + Chr(111) + Chr(110) + Chr(32) + Chr(111) + Chr(102) + Chr(32) + Chr(97) + Chr(108) + Chr(108) + Chr(32) + Chr(85) + Chr(110) + Chr(114) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(32) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(119) + Chr(97) + Chr(114) + Chr(101) + Chr(46) + Chr(46) + Chr(46) + Chr(46)
BIGSTR018 = " Registering The PCB Bulletin Executive Removes This Screen "
BIGSTR019 = ""
GetToken BIGSTR006
GetToken BIGSTR020
GetToken BIGSTR021
GetToken BIGSTR022
GetToken BIGSTR023
GetToken BIGSTR024
INTEGER013 = 1
INTEGER014 = 1
INTEGER015 = 1
INTEGER017 = 10
BOOLEAN004 = 0
INTEGER021 = 0
BIGSTR005 = 0
BOOLEAN001 = 1
BOOLEAN003 = 0
BIGSTR010 = Chr(80) + Chr(67) + Chr(66) + Chr(66) + Chr(69) + "." + Chr(75) + Chr(69) + Chr(89)
BIGSTR016 = Chr(85) + Chr(78) + Chr(82) + Chr(69) + Chr(71) + Chr(73) + Chr(83) + Chr(84) + Chr(69) + Chr(82) + Chr(69) + Chr(68)
BIGSTR025 = Chr(80) + Chr(67) + Chr(66) + Chr(66) + Chr(69) + "." + Chr(68) + Chr(65) + Chr(84)
BIGSTR011 = ""
BIGSTR012 = ""
BIGSTR013 = ""
BIGSTR014 = ""
PrintLn "@POFF@"
DATE002 = Date()
INTEGER012 = DATE002
FDefIn 1
If (Exist(PPEPath() + "PCBBE.COL")) Then
FOpen 1, PPEPath() + "PCBBE.COL", 2, 0
FDGet BIGSTR026
FDGet BIGSTR027
FDGet BIGSTR028
FDGet BIGSTR030
FDGet BIGSTR031
FDGet BIGSTR032
FDGet BIGSTR033
FDGet BIGSTR034
FDGet BIGSTR035
FClose 1
BIGSTR026 = Left(BIGSTR026, 4)
BIGSTR027 = Left(BIGSTR027, 4)
BIGSTR028 = Left(BIGSTR028, 4)
BIGSTR030 = Left(BIGSTR030, 4)
BIGSTR031 = Left(BIGSTR031, 4)
BIGSTR032 = Left(BIGSTR032, 4)
BIGSTR033 = Left(BIGSTR033, 4)
BIGSTR034 = Left(BIGSTR034, 4)
BIGSTR035 = Left(BIGSTR035, 4)
BIGSTR036 = Left(BIGSTR036, 4)
BIGSTR037 = Left(Right(BIGSTR026, 2), 1)
BIGSTR029 = Left(Right(BIGSTR028, 2), 1)
STRING003 = Right(BIGSTR028, 1)
INTEGER020 = BIGSTR029
INTEGER020 = INTEGER020 + 8
If (INTEGER020 == 10) BIGSTR029 = "A"
If (INTEGER020 == 11) BIGSTR029 = "B"
If (INTEGER020 == 12) BIGSTR029 = "C"
If (INTEGER020 == 13) BIGSTR029 = "D"
If (INTEGER020 == 14) BIGSTR029 = "E"
If (INTEGER020 == 15) BIGSTR029 = "F"
BIGSTR015 = "@X" + BIGSTR029 + STRING003
INTEGER019 = BIGSTR037
INTEGER019 = INTEGER019 + 8
BIGSTR037 = INTEGER019
If (BIGSTR037 == 10) BIGSTR037 = "A"
If (BIGSTR037 == 11) BIGSTR037 = "B"
If (BIGSTR037 == 12) BIGSTR037 = "C"
If (BIGSTR037 == 13) BIGSTR037 = "D"
If (BIGSTR037 == 14) BIGSTR037 = "E"
If (BIGSTR037 == 15) BIGSTR037 = "F"
BIGSTR037 = "@X" + BIGSTR037 + "C"
Else
BIGSTR026 = "@X1F"
BIGSTR027 = "@X10"
BIGSTR028 = "@X1A"
BIGSTR030 = "@X1E"
BIGSTR031 = "@X17"
BIGSTR032 = "@X1D"
BIGSTR033 = "@X1E"
BIGSTR034 = "@X1C"
BIGSTR035 = "@X1B"
BIGSTR036 = "@X17"
BIGSTR037 = "@X1C"
Endif
If (Exist(PPEPath() + BIGSTR010)) Then
FOpen 1, PPEPath() + BIGSTR010, 2, 0
FDGet BIGSTR038
FDGet BIGSTR039
FDGet BIGSTR009
FClose 1
BIGSTR039 = BIGSTR039 + " "
BIGSTR039 = Left(BIGSTR039, 26)
Gosub LABEL012
Endif
If (Exist(PPEPath() + "UNIVERSL.KEY")) Goto LABEL013
If (Exist(PPEPath() + "UNI.KEY")) Goto LABEL014
:LABEL001
If (BIGSTR006 <> "") Then
BOOLEAN004 = 1
Else
If (BOOLEAN003) Then
If (Exist(PPEPath() + "PCBBE.HDR")) Then
DispFile PPEPath() + "PCBBE.HDR", 0
Else
PrintLn "@POFF@@CLS@", BIGSTR026, "┌ ", BIGSTR026, "P", BIGSTR026, "C", BIGSTR026, "B", BIGSTR026, " Bulletin Executive v2.01", BIGSTR026, " Registered To ", BIGSTR030, BIGSTR039, BIGSTR026, "─", BIGSTR027, "┐@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, "###", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, " Bulletin Description ", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, "Last Updated", BIGSTR026, "│", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
Endif
Else
PrintLn "@POFF@@CLS@", BIGSTR026, "┌ ", BIGSTR026, "P", BIGSTR026, "C", BIGSTR026, "B", BIGSTR026, " Bulletin Executive v2.01 ────────────────── ", BIGSTR037, "»» ", BIGSTR016, " «« ", BIGSTR026, "─────", BIGSTR027, "┐@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, "###", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, " Bulletin Description ", BIGSTR026, "│", BIGSTR027, "│", BIGSTR030, "Last Updated", BIGSTR026, "│", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│", BIGSTR027, "┌───", BIGSTR026, "┐", BIGSTR027, "┌────────────────────────────────────────────────────────", BIGSTR026, "┐", BIGSTR027, "┌────────────", BIGSTR026, "┐", BIGSTR027, "│@X07"
Endif
BIGSTR001 = ReadLine(PCBDat(), 31)
BIGSTR041 = ReadLine(BIGSTR001, CurConf() * 33 + 25)
BIGSTR041 = Trim(ReadLine(ReadLine(PCBDat(), 31), 25), " ")
BIGSTR041 = RTrim(BIGSTR041, "T")
BIGSTR041 = RTrim(BIGSTR041, "S")
BIGSTR041 = RTrim(BIGSTR041, "L")
BIGSTR041 = RTrim(BIGSTR041, ".")
BIGSTR041 = RTrim(BIGSTR041, "T")
BIGSTR041 = RTrim(BIGSTR041, "L")
BIGSTR041 = RTrim(BIGSTR041, "B")
FOpen 1, PPEPath() + "PCBBE.CFG", 0, 2
INTEGER013 = 1
:LABEL002
If (Ferr(1)) Goto LABEL003
FDGet BIGSTR004
BIGSTR040 = Left(BIGSTR004, 55)
BIGSTR008 = INTEGER013
BIGSTR007 = "00000" + BIGSTR008
BIGSTR007 = Right(BIGSTR007, 3)
DATE003 = FileInf(BIGSTR041 + "BLT" + BIGSTR008, 2)
If (FileInf(BIGSTR041 + "BLT" + BIGSTR008, 1) == 1) Then
BIGSTR042 = DATE003
Else
BIGSTR042 = "Missing "
Endif
If (DATE003 > U_LDate()) BOOLEAN005 = 1
Gosub LABEL009
INTEGER013 = INTEGER013 + 1
BIGSTR005 = BIGSTR005 + 1
If (BIGSTR005 == 15) Gosub LABEL004
Goto LABEL002
:LABEL003
FClose 1
BOOLEAN002 = 1
If ((BOOLEAN002 == 1) && (INTEGER021 == 0)) Then
PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "└", BIGSTR027, "─────────────────────────────────────────────────────────────────────────────┘@X07"
Endif
Gosub LABEL005
:LABEL004
If (BOOLEAN001 == 1) Then
PrintLn BIGSTR026, "│", BIGSTR027, "└", BIGSTR026, "───┘", BIGSTR027, "└", BIGSTR026, "────────────────────────────────────────────────────────┘", BIGSTR027, "└", BIGSTR026, "────────────┘", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "└", BIGSTR027, "─────────────────────────────────────────────────────────────────────────────┘@X07"
BOOLEAN001 = 0
Else
PrintLn "1H"
Endif
INTEGER021 = INTEGER021 + 1
:LABEL005
If (BOOLEAN002 == 1) PrintLn "1H"
BIGSTR011 = ""
InputStr "@X0FBulletin # @X0A<ENTER>@X0F For more (@X0CQ@X0F)uit", BIGSTR011, 14, 3, Mask_Num() + "Q", 2 + 4 + 8 + 256
If (BIGSTR011 == "Q") Then
Goto LABEL007
ElseIf (BIGSTR011 <> "") Then
Goto LABEL006
ElseIf (BOOLEAN002) Then
Goto LABEL007
Endif
BIGSTR005 = 0
PrintLn "H"
INTEGER018 = 1
For INTEGER018 = 1 To 15
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, " ", BIGSTR026, "│", BIGSTR027, "│@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Next
PrintLn "H"
Return
Endif
:LABEL006
INTEGER023 = BIGSTR006
INTEGER024 = BIGSTR020
INTEGER025 = BIGSTR021
INTEGER026 = BIGSTR022
INTEGER027 = BIGSTR023
INTEGER028 = BIGSTR024
If (BOOLEAN004) Then
PrintLn "@PON@"
Blt INTEGER023
If (BIGSTR020 <> "") Blt INTEGER024
If (BIGSTR021 <> "") Blt INTEGER025
If (BIGSTR022 <> "") Blt INTEGER026
If (BIGSTR023 <> "") Blt INTEGER027
If (BIGSTR024 <> "") Blt INTEGER028
Wait
Else
INTEGER022 = BIGSTR011
PrintLn "@PON@"
Blt INTEGER022
Wait
Endif
PrintLn "@POFF@"
:LABEL007
If (!BOOLEAN003) Gosub LABEL008
PrintLn "@PON@"
KbdStuff Chr(13)
End
:LABEL008
If (Exist(PPEPath() + BIGSTR025)) Then
FOpen 5, PPEPath() + BIGSTR025, 2, 0
FGet 5, DATE001
FClose 5
INTEGER011 = DATE001
If (INTEGER011 + 30 <= INTEGER012) Then
INTEGER017 = 20
PrintLn "@CLS@@X0E PCBBE has now been running for more than 30 days"
PrintLn
PrintLn "@X0B ┌────────────────────────────────────────┐"
PrintLn "@X0B │ PCBBE 30 Day Shareware License Expired │"
PrintLn "@X0B └────────────────────────────────────────┘"
PrintLn
PrintLn "@X0C Please Encourage your SysOp to register this software"
PrintLn
PrintLn
Log " ", 0
Log "*****************************************************", 0
Log "* *", 0
Log "* PCBBE has now been running for more than 30 days *", 0
Log "* *", 0
Log "* └────────────────────────────────────────┘ *", 0
Log "* │ PCBBE 30 Day Shareware License Expired │ *", 0
Log "* ┌────────────────────────────────────────┐ *", 0
Log "* *", 0
Log "* You should register PCBBE or Stop running it *", 0
Log "* *", 0
Log "*****************************************************", 0
Log " ", 0
Wait
Endif
Else
FCreate 4, PPEPath() + BIGSTR025, 2, 0
FPutLn 4, Date()
FClose 4
Endif
PrintLn "@BEEP@@POFF@@CLS@", BIGSTR026, "┌─────── PCB Bulletin Executive v2.01 ────────", BIGSTR037, "»» ", BIGSTR016, " ««", BIGSTR026, "───────", BIGSTR027, "┐@X07"
PrintLn BIGSTR026, "│ ", BIGSTR027, " │@X07"
PrintLn BIGSTR026, "│ ", BIGSTR030, BIGSTR017, " @X07@X00", BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│ ", BIGSTR027, " │@X07"
PrintLn BIGSTR026, "│ ", BIGSTR028, BIGSTR018, BIGSTR027, "│@X07"
PrintLn BIGSTR026, "│ ", BIGSTR027, " │@X07"
PrintLn BIGSTR026, "│ Please Encourage your Sysop to Register ", BIGSTR026, "P", BIGSTR026, "C", BIGSTR026, "B ", BIGSTR026, "Bulletin Executive", BIGSTR027, " │@X07"
PrintLn BIGSTR026, "└", BIGSTR027, "─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn
If (OnLocal()) Then
INTEGER016 = 1
For INTEGER016 = 1 To 20
Print "@X0C", INTEGER016, "@X0F. "
BIGSTR003 = 1 * (182 / 10)
Delay BIGSTR003
Next
Else
INTEGER016 = 1
For INTEGER016 = 1 To INTEGER017
Print "@X0C", INTEGER016, "@X0F. "
BIGSTR003 = 1 * (182 / 10)
Delay BIGSTR003
Next
Endif
Return
:LABEL009
If (BOOLEAN005) Goto LABEL010
Select Case (Right(Left(BIGSTR004, 57), 1))
Case "*"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR033, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Case "&"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR034, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Case "^"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR035, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Case Else
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR032, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│ ", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
End Select
Goto LABEL011
:LABEL010
Select Case (Right(Left(BIGSTR004, 57), 1))
Case "*"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR033, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] @POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Case "&"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR034, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Case "^"
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR035, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
Case Else
PrintLn BIGSTR026, "│", BIGSTR027, "│", BIGSTR028, BIGSTR007, "@POS:6@", BIGSTR026, "│", BIGSTR027, "│", BIGSTR032, BIGSTR040, "@POS:64@", BIGSTR026, "│@POS:65@", BIGSTR027, "│", BIGSTR015, "*", BIGSTR027, "[", BIGSTR031, BIGSTR042, BIGSTR027, "] ", "@POS:78@", BIGSTR026, "│@POS:79@", BIGSTR027, "│@X07"
End Select
:LABEL011
BOOLEAN005 = 0
Return
:LABEL012
BIGSTR002 = BIGSTR038 + BIGSTR039
BIGSTR002 = Strip(BIGSTR002, " ")
For INTEGER007 = 1 To Len(BIGSTR002)
TINTEGER008(INTEGER007) = Asc(Mid(BIGSTR002, INTEGER007, 1))
Next
INTEGER009 = 0
For INTEGER007 = 1 To 80
INTEGER009 = INTEGER009 + TINTEGER008(INTEGER007)
Next
INTEGER010 = INTEGER009 * 3793
If (INTEGER010 == BIGSTR009) Then
BOOLEAN003 = 1
Endif
Return
:LABEL013
FOpen 1, PPEPath() + "UNIVERSL.KEY", 0, 0
FDefIn 1
For INTEGER004 = 1 To 3
FDGet TSTRING002(INTEGER004)
Next
FClose 1
STRING001 = TSTRING002(1) + TSTRING002(2)
STRING001 = Strip(STRING001, " ")
For INTEGER005 = 1 To Len(STRING001)
TINTEGER006(INTEGER005) = Asc(Mid(STRING001, INTEGER005, 1))
Next
INTEGER002 = 0
For INTEGER005 = 1 To 99
INTEGER002 = INTEGER002 + TINTEGER006(INTEGER005)
Next
INTEGER003 = INTEGER002 * 659
INTEGER001 = INTEGER003
BOOLEAN003 = 0
If (INTEGER003 <> TSTRING002(3)) Then
BOOLEAN003 = 0
Else
BOOLEAN003 = 1
BIGSTR038 = TSTRING002(1)
BIGSTR039 = TSTRING002(2)
BIGSTR039 = BIGSTR039 + " "
BIGSTR039 = Left(BIGSTR039, 26)
Endif
Goto LABEL001
:LABEL014
FOpen 1, PPEPath() + "UNI.KEY", 0, 0
FDefIn 1
For INTEGER004 = 1 To 3
FDGet TSTRING002(INTEGER004)
Next
FClose 1
STRING001 = TSTRING002(1) + TSTRING002(2)
STRING001 = Strip(STRING001, " ")
For INTEGER005 = 1 To Len(STRING001)
TINTEGER006(INTEGER005) = Asc(Mid(STRING001, INTEGER005, 1))
Next
INTEGER002 = 0
For INTEGER005 = 1 To 99
INTEGER002 = INTEGER002 + TINTEGER006(INTEGER005)
Next
INTEGER003 = INTEGER002 * 659
INTEGER001 = INTEGER003
BOOLEAN003 = 0
If (INTEGER003 <> TSTRING002(3)) Then
BOOLEAN003 = 0
Else
BOOLEAN003 = 1
BIGSTR038 = TSTRING002(1)
BIGSTR039 = TSTRING002(2)
BIGSTR039 = BIGSTR039 + " "
BIGSTR039 = Left(BIGSTR039, 26)
Endif
Goto LABEL001
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 3 Wait
; 76 Goto
; 176 Let
; 2 Print
; 50 PrintLn
; 60 If
; 1 DispFile
; 1 FCreate
; 6 FOpen
; 7 FClose
; 1 FGet
; 1 FPutLn
; 13 Log
; 1 InputStr
; 5 Gosub
; 4 Return
; 2 Delay
; 6 GetToken
; 1 KbdStuff
; 7 Blt
; 3 FDefIn
; 15 FDGet
;
;
; ■ Functions used :
;
; 6 *
; 2 /
; 152 +
; 26 ==
; 9 <>
; 11 <
; 12 <=
; 1 >
; 22 >=
; 38 !
; 23 &&
; 11 ||
; 6 Len(
; 3 Mid()
; 22 Left()
; 10 Right()
; 1 Ferr()
; 101 Chr()
; 3 Asc()
; 7 RTrim()
; 1 Trim()
; 2 Date()
; 1 U_LDate()
; 3 Strip()
; 1 Mask_Num()
; 1 CurConf()
; 2 PCBDat()
; 14 PPEPath()
; 4 ReadLine()
; 1 OnLocal()
; 6 Exist()
; 2 FileInf()
;
;------------------------------------------------------------------------------
;
; Analysis flags : d
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 11 For/Next
; 0 While/EndWhile
; 18 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------